home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2004 September / maximum-cd-2004-09.iso / Software / Apps / CorelDRAWGraphicsSuite12.exe / CorelDRAW Graphics Suite 12.msi / Binary.NewBinary37 < prev    next >
Encoding:
Text File  |  2004-01-07  |  645 b   |  27 lines
  1. If (Session.Property("SKU")="TypeB") Then
  2.     Session.Property("SERIALNUMBER") = "DR12WTX-9999998-YSP"
  3.     Session.Property("TYPEB") = "1"
  4. End If
  5.  
  6. '///////////////////////////////////////////////
  7. Function IsFeatureExists(sFeature)
  8. On Error Resume Next
  9.  
  10.     Dim objDB: Set objDB = Session.Database
  11.  
  12.     Dim sQuery: sQuery = "SELECT * FROM `Feature` WHERE `Feature`.`Feature` = '" & sFeature & "'"
  13.  
  14.     Dim objView: Set objView = objDB.OpenView(sQuery)
  15.     objView.Execute
  16.  
  17.     Dim objRec: Set objRec = objView.Fetch
  18.  
  19.     If (objRec Is Nothing) Then
  20.         ' not there
  21.         IsFeatureExists = 0
  22.     Else
  23.         ' there
  24.         IsFeatureExists = 1
  25.     End If
  26.  
  27. End Function